home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / r / real_3d / real3dv3.3b.dms / real3dv3.3b.adf / RPL.LZH / RPL / sys / ui.rpl < prev    next >
Text File  |  1995-04-18  |  2KB  |  76 lines
  1. ( -------------------------------------------------
  2. ( FILE:         ui.rpl
  3. ( DESCRIPTION:  RPL interface to GUI
  4. ( VERSION:      3.0
  5. ( DATE:            39-Dec-94
  6. ( -------------------------------------------------
  7. ( Copyright © 1994 Realsoft.  All rights reserved
  8. ( -------------------------------------------------
  9.  
  10. ?& UI.RPL NOT ?IF
  11. 37 CONSTANT UI.RPL
  12.  
  13. ( Tags for gadgets
  14.  
  15. 0  CONSTANT UI_Done
  16. 1  CONSTANT UI_Disabled
  17. 2  CONSTANT UICB_Checked
  18. 3  CONSTANT UIST_String
  19. 4  CONSTANT UIST_MaxChars
  20. 5  CONSTANT UITX_Text
  21. 6  CONSTANT UITX_Border
  22. 7  CONSTANT UISL_Min
  23. 8  CONSTANT UISL_Max
  24. 9  CONSTANT UISL_Level
  25. 10 CONSTANT UIMX_Labels
  26. 11 CONSTANT UIMX_Active
  27.  
  28. ( Window callback values
  29. 0 CONSTANT UIWM_Move    ( mouse move
  30. 1 CONSTANT UIWM_LMBDown ( Left mouse button down
  31. 2 CONSTANT UIWM_LMBUp    ( Left mouse button up
  32. 3 CONSTANT UIWM_Close    ( close clicked
  33. 4 CONSTANT UIWM_Selected ( selected objects and/or current working level changed
  34. 5 CONSTANT UIWM_Refresh ( user has modified objects, refresh window
  35.  
  36. ?& NULL NOT ?IF
  37.     0 CONSTANT NULL
  38.     0 CONSTANT FALSE
  39.     1 CONSTANT TRUE
  40. ?ENDIF
  41.  
  42. ( Define new data type 'pointer array'. This is makes it easier to set up
  43. ( string pointer array required by 'UI_MX' gadget. 
  44.  
  45. : PARRAY ( iSize )
  46.     <BUILDS 4 * ALLOT DOES>
  47. ;
  48.  
  49. : PSTORE ( sString iIndex aArray)
  50.     4 * + STORE 
  51. ;
  52.  
  53. : PFETCH ( iIndex aArray)
  54.     4 * + FETCH
  55. ;
  56.  
  57. : PINIT ( 0 sStringN ... string2 sTring1 aArray )
  58.     PARAM
  59.         VARIABLE aArray
  60.     ENDPARAM
  61.     VARIABLE iIndex
  62.  
  63.     0 iIndex STORE
  64.     BEGIN 
  65.         DUP 
  66.     WHILE
  67.         aArray FETCH iIndex FETCH PSTORE
  68.         1 iIndex FETCH + iIndex STORE
  69.     REPEAT
  70.     DROP
  71.     0 aArray FETCH iIndex FETCH PSTORE
  72. ;
  73.  
  74. ?ENDIF ( UI.RPL
  75.  
  76.